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: CERF .SRCISYSTARTUP.FOR; 


Subroutine SYS_STARTUP (Lun) 


| 
| 
1 
$4. | 
: Version: *v04-000' 
| 
5 CRee eee eee ERA AAEEAAEAAAAAAERAARAAAAARARAEREEEEAEHEA AAT Te AeA 
Ce e | 
3009 C* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ” 
9008 C* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . 
sh ee ALL RIGHTS RESERVED. * | 
- ® 
0011 C* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
borg Ce Y IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
1 C* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0014 C* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0015 C* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
pote - TRANSFERRED. * 
* a 
0018 C* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0019 C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
9020 C+ CORPORATION. . 
e ® | 
0092 C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
002 C* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0024 Ce : 
0025 C* * | 
0026 COP eee eee AAE AEE AAAAAAAAAAAAEAAAEAAA AERA EEe 
0027 C 
0099 : Modified By: | 
0030 C v03-001 SARO098 Sharon A. Reynolds, 20-Jun-1983 
0031 C Changed the carriage control in the ‘format’ statements 
ote C for use with ERF. 
003 C 
site C-- 
0055 
0036 C : 
0037 C Require files 
0038 C 
0039 Include ‘src$:msghdr.for /nolist' 
0098 
0099 
0100 Byte Lun 
0101 
B198 C ‘ : 
10 C Call the ‘header’ routine to output the first two Lines of the 
pipe ; header portion of the report. | 
§108 Call HEADER (Lun) | 
Bie 
108 C 
B90 C Determine if this is a ‘system start-up’ or a ‘power fail restart’ 
110 C entry. Call the ‘logger’ routine with the appropriate none=ae 
111 C to output for the header portion of the report. (System start up 
6 C and power fail restart entries consist of header and time of day 
BF : clock only, as they are indicators that the event occurred). | 
O11 If (EMBSW_HD_ENTRY .EQ. ‘20°X) Then ! System start-up 
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SYS_STARTUP g-Sep-1984 00:15:35 VAX-11 FORTRAN Y3.6-56 Page | 
~3ep-1984 14:23:14  DISKSVMSMASTER: CERF . SRCJSYSTARTUP.FOR; 

Call LOGGER (Lun,"SYSTEM START-UP") 


Else if (EMBSW_HD_ENTRY .EQ. '24'X) Then ! Power-fail restart 
os) oon (Lin, "POWER-FAIL RESTART’) 
n 


Call the ‘Linchk’ routine to count the number of Lines output. 
And output the information. 


Call LINCHK (LUN,2) 
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01 Write (tun .2111) (emb(16 + 1),i1 = 3,0,-1) 
91 2111 Format(/" °,*TIME OF DAY CLOCK',124.422.2) 
01 Return 

013 End ! Module 


PROGRAM SECTIONS 
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Name Bytes Attributes 
0 SCODE 129 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 70 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
¢ SLOCAL 64 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
EMB 512 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 775 
ENTRY POINTS 
Address Type Name 
0-00000000 SYS_STARTUP 
VARIABLES 
Address Type Name Address Type Name 
-00000000 I*4 EMBSL_HD_SID 3-00000004 I*2 EMBSW_HD_ENTRY 
-O000000E I*2 EMBSW_HD_ERRSEQ 2-00000000 | 
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ARRAYS 
Address Type Name Bytes Dimensions 


$-00000006 Ts4 ERBSO_ND_TIME i OE Se 
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LABELS 
Address Label 
1-00000027 2111' 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
HEADER LINCHK LOGGER 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:SYSTARTUP/OBJ=O0BJ$:SYSTARTUP MSRC$:SYSTARTUP 


/CHECK=(NOBOUNDS , OVERFLOW, NOUNDERF LOW) 
/DEBUG=(NOSYMBOL §, TRACEBACK) 


X,NO 
/SHOW= (NOPREPROCESSOR ,NOINCLODE ,MAP) 


COMPILATION STATISTICS 


Run Time: 1.25 seconds 
Elapsed Time: 4.36 seconds 
Page Faults: 91 

Dynamic Memory: 167 pages 


/F77 /NOG_FLOATING /14 /OPTIMIZE /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 
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